home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Workbench Design
/
WB Collection.iso
/
icon sammlungen
/
mwb archive
/
smallmagic1_4.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1996-04-07
|
816b
|
22 lines
/*QuickArchive © Frank Röchter*/
NL="0a"x
call addlib("rexxreqtools.library", 0, -30, 0)
wahl = rtezrequest("Wollen Sie die Datei nach RAM: entpacken," || NL ||,
"ein Verzeichnis zum entpacken auswählen" || NL ||,
"oder wollen Sie sich den .readme" || NL ||,
"Text anzeigen lassen?",,
"_RAM:|A_uswählen|An_zeigen|_Abbrechen")
call rtfreefilebuffer()
if wahl = 1 then do
address command ':c/lha e Smallmagic1_4.lha ram:'
end
if wahl = 2 then do
dirname = rtfilerequest("sys:","","Pick a directory","Ok","rtfi_flags = freqf_nofiles")
t = '"'
call rtfreefilebuffer()
address command ':c/lha e Smallmagic1_4.lha 't||dirname||t
end
if wahl = 3 then do
address command ':c/Text Smallmagic1_4.readme'
end